
Imports System
Imports System.Collections
Imports System.ComponentModel
Imports System.Data
Imports System.Drawing
Imports System.Web
Imports System.Web.SessionState
Imports System.Web.UI
Imports System.Web.UI.WebControls
Imports System.Web.UI.HtmlControls
Imports _2bMatesSite.BO

Namespace _2bMatesSite
	''' <summary>
	''' Summary description for terms.
	''' </summary>
	Public Partial Class welcome_msg
		Inherits BaseWebPage
		Public form1 As System.Web.UI.HtmlControls.HtmlForm

		Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs)
			' this.pageTemplate.PageTitle = PageTitles.WELCOME_MSG_PAGE;
			' Put user code to initialize the page here

			Dim usr As User = LoggedUser

			litWelcomeMsg.Text = "Confirming your email address will give you authorization to:<br><br>" + "<ul>" + "<li>Alter your profile</li>" + "<li>Attach photos</li>" + "<li>Post messages to members</li>" + "<li>Write a personal reference</li>" + "</ul>" + "An email has been sent to you with instructions on how to activate your account.<br><br>" + "Note: In case you get an error when you try to confirm your email, you may need to copy and paste this URL into a new browser window."
			'if(usr.Status == Users.STATUS_ACTIVE)
			If usr.Status <> Users.STATUS_LOCKED Then
				btnSkip.Visible = False
			End If

			Me.initPageTitles(Constants.WELCOME_MSG, "", form1, Nothing, Nothing)
			Me.initAdvertisements(form1, Nothing)
		End Sub

		#region Web Form Designer generated code
		Protected Overloads Overrides Sub OnInit(ByVal e As EventArgs)
			'
			' CODEGEN: This call is required by the ASP.NET Web Form Designer.
			'
			InitializeComponent()
			MyBase.OnInit(e)
		End Sub

		''' <summary>
		''' Required method for Designer support - do not modify
		''' the contents of this method with the code editor.
		''' </summary>
		Private Sub InitializeComponent()

		End Sub
#End Region

		Protected Sub btnSkip_Click(ByVal sender As Object, ByVal e As System.EventArgs)
			Response.Redirect(Constants.WELCOME)
		End Sub
	End Class
End Namespace






